Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/PASCAL/0635.ZIP/SETDRIVE.INC

Text File | 1987-07-25 | 315b | 17 lines

Procedure SetDrive(Drive : Char);
Type
  RegPack = Record
            AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer;
            End;
Var
  Registers : RegPack;
Begin
Drive := Upcase(Drive);
With Registers do
  Begin
  AX := $E shl 8;
  DX := Ord(Drive) - 65;
  End;
MSDos(Registers);
End; {SetDrive}